gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGplaceXs_2.asp
<!-- #include file="include/Config.asp" --> <!-- #include file="include/Conn.asp" --> <!-- #include file="include/Function.asp" --> <% ''/////////// 竖直排列 id=trim(request.querystring("id")) IF isnumeric(id) then xsnr="" Pid=cint(id) Pname=trim(request("Pname")) Plei=trim(request("Plei")) Pcss=trim(request("Pcss")) Cid=trim(request("Cid")) ADids=trim(request("ADids")) '' 得到对齐方式 dq=PubFgdy(Pcss,",",Ubound(split(Pcss,","))) '' 得到背景 if PubFgdy(Pcss,",",Ubound(split(Pcss,","))-1)<>"" then bg=" bgcolor='"&replace(PubFgdy(Pcss,",",Ubound(split(Pcss,","))-1),"#","#")&"'" else bg="" end if xsnr = xsnr & "<table width='100%' height='100%' border='0' cellpadding='0' style='border-collapse: collapse' align='"&dq&"' "&bg&"><tr><td valign='top' align='"&dq&"'>" xsnr = xsnr & "<table border='0' cellpadding='0' style='border-collapse: collapse' align='"&dq&"'><tr><td valign='top' align='"&dq&"'>" if trim(ADids)<>"" and instr(trim(ADids),",")=0 then ' Aid=cint(trim(ADids)) Call GgtiaoXs(Aid) else ads=Ubound(split(ADids,","))+1 '' 得到每列显示数 if isnumeric(PubFgdy(Pcss,",",4)) then ds=cint(PubFgdy(Pcss,",",4)) else ds=Ubound(split(ADids,","))+1 end if '''''''''''''''' '' 得到行间距 if isnumeric(PubFgdy(Pcss,",",5)) then hjj=cint(PubFgdy(Pcss,",",5)) else hjj=10 end if '''''''''''''''' '' 得到列间距 if isnumeric(PubFgdy(Pcss,",",6)) then ljj=cint(PubFgdy(Pcss,",",6)) else ljj=6 end if '''''''''''''''' for j=0 to Ubound(split(adids&",",","))-1 '' 循环排列显示开始 if isnumeric(PubFgdy(adids&",",",",j))=true then Aid=Cint(PubFgdy(adids&",",",",j)) Call GgtiaoXs(Aid) if (j+1)mod ds >0 then xsnr = xsnr & FhjjCode(hjj) end if if ds="" or ds=0 then ds=1 if (j+1)mod ds =0 and j+1<ads then xsnr = xsnr & "</td>"&FljjCode(ljj)&"<td valign='top' align='"&dq&"'>" next '' 循环排列显示结束 end if xsnr = xsnr & "</td></tr></table>" xsnr = xsnr & "</td></tr></table>" response.write "<script>document.write(unescape("""&escape(xsnr)&"""));</script>" end IF %>